home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
tpapi1.zip
/
NWSYNCH.PA1
< prev
next >
Wrap
Text File
|
1991-12-04
|
5KB
|
83 lines
{!R! FONT 15; FTMD 15; EXIT;}
{***************************************************************************}
{** Program : NWSYNCH **}
{***************************************************************************}
{** Version : 1.0b ** Started : 11/11/91 ** Ended : / / **}
{***************************************************************************}
{******************************** Description ******************************}
{***************************************************************************}
{** OOP library for Netware API **}
{** **}
{** This unit forms the second level object : SYNCH **}
{** This object is a descandent of : NETWARE **}
{** **}
{** **}
{** **}
{** **}
{***************************************************************************}
{******************************** Information ******************************}
{***************************************************************************}
{** **}
{** **}
{** **}
{** **}
{** This code is (c) 1991 Tony Covelli, **}
{** Portions (c) Novell Inc, **}
{** **}
{** **}
{***************************************************************************}
{$I NETWARE.INC}
UNIT NWSYNCH;
INTERFACE
USES
netware, nwvar;
TYPE
pSynchOBJ = ^SynchOBJ;
SynchOBJ = object (NetwareOBJ)
constructor Init;
FUNCTION ClearFile (FileName : PathNameType) : WORD;
PROCEDURE ClearFileSet;
FUNCTION ClearLogicalRecord (LogicalRecordName : LogicalRecordNameType) : WORD;
PROCEDURE ClearLogicalRecordSet;
FUNCTION ClearPhysicalRecord (FileHandle : WORD; RecordOffset, RecordLength : LONGINT) : WORD;
PROCEDURE ClearPhysicalRecordSet;
FUNCTION CloseSemaphore (SemaphoreHandle : LONGINT) : WORD;
FUNCTION ExamineSemaphore (SemaphoreHandle : LONGINT; VAR SemaphoreValue : WORD;
VAR OpenCount : WORD) : WORD;
FUNCTION GetLockMode : WORD;
FUNCTION LockFileSet (TimeOut : WORD) : WORD;
FUNCTION LockLogicalRecordSet (LockDirective : BYTE; Timeout : WORD) : WORD;
FUNCTION LockPhysicalRecordSet (LockDirective : BYTE; TimeOut : WORD) : WORD;
FUNCTION LogFile (FileName : PathNameType; LockDirective : BYTE; TimeOut : WORD) : WORD;
FUNCTION LogLogicalRecord (LogicalRecordName : LogicalRecordNameType;
LockDirective : BYTE; TimeOut : WORD) : WORD;
FUNCTION LogPhysicalRecord (FileHandle : WORD; RecordOffSet, RecordLength : LONGINT;
LockDirective : BYTE; TimeOut : WORD) : WORD;
FUNCTION OpenSemaphore (SemaphoreName : SemaphoreNameType; InitialValue : WORD;
VAR SemaphoreHandle : LONGINT; VAR OpenCount : WORD) : WORD;
FUNCTION ReleaseFile (FileName : PathNameType) : WORD;
PROCEDURE ReleaseFileSet;
FUNCTION ReleaseLogicalRecord (LogicalRecordName : LogicalRecordNameType) : WORD;
PROCEDURE ReleaseLogicalRecordSet;
FUNCTION ReleasePhysicalRecord (FileHandle : WORD; RecordOffset, RecordLength : LONGINT) : WORD;
PROCEDURE ReleasePhysicalRecordSet;
FUNCTION SetLockMode (LockMode : BYTE) : WORD;
FUNCTION SignalSemaphore (SemaphoreHandle : LONGINT) : WORD;
FUNCTION WaitOnSemaphore (SemaphoreHandle : LONGINT; TimeOut : WORD) : WORD;
destructor Done; virtual;
END;